/* GUI CONVERTED from adadcgd.p (converter v1.76) Mon Apr 21 19:43:28 2003 */
/* adadcgd.p - ADDRESS CODE CHANGE -SUBPROGRAM                          */
/* Copyright 1986-2003 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* $Revision: 1.7.1.7 $                                                     */
/*V8:ConvertMode=Maintenance                                            */
/* REVISION: 7.3      CREATED:       05/28/93   BY: MPP *GB39**/
/* REVISION: 7.3      LAST MODIFIED: mm/dd/94   BY: afs *GH51**/
/*                                   07/05/94   BY: rmh *FP15**/
/*                                   09/26/94   BY: jzs *GM54*/
/*                                   04/24/95   BY: dxk *F0QW*/
/*                                   01/23/96   BY: ame *F0WW*/
/* REVISION: 7.4      LAST MODIFIED: 11/19/96   BY: *H0PD* Aruna Patil  */
/* REVISION: 7.4      LAST MODIFIED: 06/06/97   BY: *H0ZQ* Ajit Deodhar */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane    */
/* REVISION: 8.6E     LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan   */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan   */
/* REVISION: 9.0      LAST MODIFIED: 03/10/99   BY: *M0B3* Michael Amaladhas  */
/* REVISION: 9.0      LAST MODIFIED: 03/13/99   BY: *M0BD* Alfred Tan         */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane   */
/* REVISION: 9.1      LAST MODIFIED: 08/11/00   BY: *N0KK* jyn                */
/* REVISION: 9.1      LAST MODIFIED: 02/06/01   BY: *N0VG* Jyoti Thatte       */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* Old ECO marker removed, but no ECO header exists *F516*                    */
/* Old ECO marker removed, but no ECO header exists *G875*                    */
/* Revision: 1.7.1.6     BY: Katie Hilbert       DATE: 05/15/02  ECO: *P06H*  */
/* $Revision: 1.7.1.7 $    BY: Narathip W.         DATE: 04/17/03  ECO: *P0Q4*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* Split from adadcg.p to get below 63k limit */

{mfdeclre.i}
{gplabel.i} /* EXTERNAL LABEL INCLUDE */
{cxcustom.i "ADADCGD.P"}

{gpfilev.i}

define shared variable addr1     like ad_addr.
define shared variable addr2     like ad_addr.
define shared variable i         as integer no-undo.
define shared variable num_rec   as integer no-undo.
define shared variable cnt_clear like mfc_logical. /* mfcscgb.i */
define shared variable record_id as recid no-undo.
define shared variable type1     like ad_type.
define shared frame b.
define variable jk as integer.

do with frame b:
   {&ADADCGD-P-TAG1}
   FORM /*GUI*/   /* Standard code change form */
      file_desc    label "Data Set" format "x(30)"
      num_rec      label "Records Updated"
   with frame b width 80 down no-attr-space THREE-D /*GUI*/.

   {&ADADCGD-P-TAG2}

   /* SET EXTERNAL LABELS */
   setFrameLabels(frame b:handle).

   {mfcscg.i  ap_mstr ap_vend addr1 addr2}
   {adadcg4.i ar_mstr addr1 addr2 ar_cust ar_bill ar_ship "ar_slspsn" 4 " "}
   {mfcscg.i  cm_mstr cm_bill addr1 addr2}
   {mfcscg.i  cp_mstr cp_cust addr1 addr2}
   {adadcg3.i poc_ctrl addr1 addr2 poc_bill poc_ship poc_ship " "}
   {adadcg3.i po_mstr addr1 addr2 po_vend po_ship po_bill " " }
   {mfcscg01.i  prh_hist prh_vend addr1 addr2}
   {adadcg3.i pt_mstr addr1 addr2 pt_vend pt_vend pt_vend " " }
   {mfcscg.i  soc_ctrl soc_company addr1 addr2}
   {adadcg4.i so_mstr addr1 addr2 so_cust so_bill so_ship "so_slspsn" 4 " "}

end.
